home *** CD-ROM | disk | FTP | other *** search
- /* This script will mark the current message unread and update the index
- The script needs at least YAM 1.3.3 */
- options results
- call addlib('rexxsupport.library',0,-30)
- address 'YAM'
- GetMailInfo File
- fname=result
- if rc=0 & exists(fname) then do
- address command 'filenote <>nil:' fname 'U'
- MailUpdate
- end
- exit
-